PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Utilities/TeleCommunications/HyperBBS Folder/UserList/stack.txt

Text File | 1988-02-06 | 3.7 KB | 140 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2635
-- card count: 2
-- first card id: 3049
-- list block id: 3280
-- print block id: 5028
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 13120 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on initFields
end initFields

on lookForInput
end lookForInput

on openStack
  push recent card
  showCount
end openStack

on showCount
  show msg at 22,20
  put "UserList: " & the number of cards & " user records in stack."
end showCount

on newCard
  showCount
end newCard

-- The following command deletes all card to the end of the stack.
-- You can use it to prune the UserList after sorting by last logon
-- and going to the oldest user you want to keep. Use it carefully,
-- tho, or you may delete your entire UserList...
--
on deleteToEnd
  repeat while the number of this card is not 1
    doMenu "delete card"
  end repeat
end deleteToEnd

function nameToID userName
put empty into it
put it into userID
if userName is not empty then
  get lockScreen
  put it into oldLock
  set lockScreen to true
  push card
  go to stack "UserList"
  find word userName in field "name"
  if it is not "not found" then
    put "x" into userID
    put the ID of this card into firstID
    repeat while field "name" is not userName
      go to next card
      find word userName in field "name"
      if the ID of this card is firstID then
        put empty into userID
        exit repeat
      end if
    end repeat
  end if
  if userID is not empty then put the ID of this card into userID
  pop card
  set lockScreen to oldLock
end if
return userID
end nameToID

function getUserInfo userID,infoType
get lockScreen
put it into oldLock
set lockScreen to true
push card
go to stack "UserList"
do "put field " & infoType & " in " & userID & " into it"
pop card
set lockScreen to oldLock
return it
end getUserInfo